www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/My_shop.asp
<!--#include file="ku_top.asp"-->
<%
sjid=request.querystring("guxing")
set rssj=server.CreateObject("adodb.recordset")
sqlsj="select * from shangjia where id="&sjid&""
rssj.open sqlsj,conn,1,1
if rssj.eof then
response.redirect"Shangjia.asp"
end if
function title()
sjid=request.querystring("guxing")
set rssjt=server.CreateObject("adodb.recordset")
sqlsjt="select * from shangjia where id="&sjid&""
rssjt.open sqlsjt,conn,1,1
%>
<%=rssjt("name")%>
<%
end function
%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
<tr>
<td height="5"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
<tr>
<td height="454" width="740" valign="top">
<div align="center">
<table cellpadding="0" cellspacing="0" width="740" height="452">
<tr>
<td height="36" background="Ku_img/News/news_001.JPG"><div id="dazi">
<p align="left">
<b><font color="#0066FF">
</font>商家：<%=title%></b></div> </td>
</tr>
<tr>
<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
<div align="center">
<table cellpadding="0" cellspacing="1" width="732" height="170" bgcolor="#F6F6F6">
<tr>
<td height="200" bgcolor="#FFFFFF" width="180" align="right">
<p align="center">
<% if rssj("logo")="" then%><img border="0" src="pkxx-img/pkj180-180.gif" width="160" height="160"><% end if%>
<% if rssj("logo")<>"" then%><img border="0" src="<%=rssj("logo")%>" width="160" height="160"><% end if%>
<br><b>店铺LOGO</b>
</td>
<td height="200" bgcolor="#FFFFFF" width="544">
<div align="center">
<table border="0" width="99%" id="table3" cellpadding="3" cellspacing="1" bgcolor="#EFEFEF">
<tr>
<td width="84" height="20" bgcolor="#FFFFFF">
<p align="center"><b>店铺名称</b>：</td>
<td height="20" bgcolor="#FFFFFF"><img border="0" src="pkxx-img/shang.gif"><b><font color="#6699FF">
<%=rssj("name")%></font></b>
<!--所属地区 开始-->
<%
dim rsclass,sqlclass
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from Gu_qu"
rsclass.open sqlclass,conn,1,1
%>
<%
sqlclass = "select * from Gu_shi"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加分类。"
response.end
else
%>
<%
set rsk1=server.createobject("adodb.recordset")
sqlk1="select * from Gu_shi where id="&rssj("shi")
rsk1.open sqlk1,conn,1,3 %>
<%
set rsk2=server.createobject("adodb.recordset")
sqlk2="select * from Gu_qu where id="&rssj("qu")
rsk2.open sqlk2,conn,1,3 %>
<%
end if
rsclass.close
%>
<font color="#FF0000">所属地区：[<%=trim(left(rsk1("class1"),5))%>-<%=trim(left(rsk2("class2"),5))%>]</font>
<!--所属地区 结束-->
</td>
</tr>
<tr>
<td width="84" height="20" bgcolor="#FFFFFF">
<p align="center"><b>商铺等级</b>：</td>
<td height="20" bgcolor="#FFFFFF">
<% if rssj("xinyu")=0 then%>
<img border="0" src="pkxx-img/sj01.gif"><font color="#999999">普通商家（本站会员享受9.5折）</font>
<% end if%>
<% if rssj("xinyu")=1 then%>
<img border="0" src="pkxx-img/sj02.gif"><font color="#FF00FF">联盟商家（本站会员享受9折）</font>
<% end if%>
<% if rssj("xinyu")=2 then%>
<img border="0" src="pkxx-img/sj03.gif"><font color="#FF0000">VIP商家（本站会员享受最低折扣）</font>
<% end if%>
</td>
</tr>
<tr>
<td width="84" height="80" bgcolor="#FFFFFF">
<p align="center"><b>店铺简介</b>：</td>
<td height="95" bgcolor="#FFFFFF"><img border="0" src="pkxx-img/jian.gif">
<%=changechr(cstr(rssj("beizhu")))%></td>
</tr>
<tr>
<td width="84" bgcolor="#FFFFFF">
<p align="center"><b>联系方式</b>：</td>
<td bgcolor="#FFFFFF">
<font color="#6699FF">联系人：</font><img border="0" src="pkxx-img/ren.gif">
<%=rssj("username")%><br>
<font color="#6699FF">联系电话：</font><img border="0" src="pkxx-img/tel.gif" width="14" height="14">
<%=rssj("tel")%>
<font color="#FF0000">(<a href="../mobile-chk.asp?mobile=<%=rssj("tel")%>" target="_blank"><img border="0" src="pkxx-Img/ph.gif" width="16" height="16"></a>或
<a href="../tel-chk.asp?tel=<%=rssj("tel")%>" target="_blank"><img border="0" src="pkxx-Img/dh.gif" width="14" height="14"></a>归属地查询)</font><br>
<font color="#6699FF">联系地址：</font><img border="0" src="pkxx-img/ico_wife.gif">
<%=rssj("address")%>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<div align="center">
<table cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ffff00">
<br><font color="#FF0000"> 友情提示：</font><font color="#999999">【<%=Ku_name%>】只提供交流平台，以上信息由商家自行输入，请拼客们自行判断该信息的真实性,理性抉择！</font>
</td></tr>
<!--【商家】页面-【店铺商家信息】下方广告位-->
<tr>
<td height="5"></td>
</tr>
<tr>
<td><% Call Ku_AD(24) %></td>
</tr>
<!--【商家】页面-【店铺商家信息】下方广告位-->
</table>
</div>
<table cellpadding="0" cellspacing="1" width="99%" bgcolor="#F6F6F6">
<!-- MSTableType="layout" -->
<tr>
<td height="135" bgcolor="#FFFFFF" valign="top">
<div align=center>
<table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<table width="720" border="0" align="center" cellpadding="3" cellspacing="1" height="175" >
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from gu_pro where did="&sjid&""
sql=sql&" order by addtime desc"
rs.open sql,conn,1,1
dim a
Set a=New PageList
listLimit=6
'模拟分页一页显示分页数
pageLists=5
'设置分页参数
If rs.BOF or rs.EOF Then
%>
</tr>
<tr bgcolor="#C6E3F4">
<td height="24" align="center" bgcolor="#FFFFFF"><b><font color="#0066FF">此商家还没添加产品！</font></b></td>
</tr>
<%
else
dim x
x=1
'分页循环开始
totalList=rs.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rs.pagesize=listLimit
page = request("page")
If page="" Then
page=1
End If
rs.absolutepage = page
%>
<tr>
<%for i=1 to rs.pagesize%>
<td height="100" width="120" style="border: 1px solid #CECFCE">
<p align="center">
<% if rs("pic")="" then%>
<a href="Gu_showpro.asp?guxing=<%=rs("id")%>" target="_blank">
<img border="0" src="pkxx-img/nopic-cp.gif" width="120" height="100"></a>
<%end if%>
<% if rs("pic")<>"" then%>
<a href="Gu_showpro.asp?guxing=<%=rs("id")%>" target="_blank">
<img border="0" src="<%=rs("pic")%>" width="120" height="100"></a>
<%end if%>
</td>
<td width="620" valign="top">
<div align="left">
<table border="0" width="230" height="111" cellpadding="0" cellspacing="0">
<tr>
<td height="36" width="70"><b>商品名称</b>：</td>
<td height="36" width="160"><a href="Gu_showpro.asp?guxing=<%=rs("id")%>" target="_blank">
<font color="#0000FF"> <%=Trim(rs("name"))%></font></a></td>
</tr>
<tr>
<td height="33" width="70"><b>商品价格</b>：</td>
<td height="33" width="160">
<img src="pkxx-img/glod.gif" border="0">
<% if rs("price")=0 then%><font color="#FF0000">面议</font><% end if%>
<% if rs("price")>0 then%><font color="#FF0000">￥<%=rs("price")%></font>元<% end if%>
</td>
</tr>
<tr>
<td height="32" width="70"><b>上架时间</b>：</td>
<td height="32" width="160">
<img src="pkxx-img/buys.gif" border="0">
<%=DateTimeFormat(rs("addtime"),4)%>
</td>
</tr>
</table>
</div>
</td>
<% if x mod 2 =0 then%>
</tr>
<tr>
<td height="9" width="640" colspan="2"></td>
</tr>
<tr align="center" width="320">
<%
end if
x=x+1
rs.movenext
if rs.eof then exit for
next
end if
%>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2">
<p align="center"><%=a.PageInfo%></td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
</form>
</table>
</div>
<%
rs.close
set rs=nohing
%>
</td>
</tr>
</table>
</div>
<tr>
<td height="4">
<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
</tr>
<!--【商家】页面-【产品列表】下方广告位-->
<tr>
<td height="5"></td>
</tr>
<tr>
<td><% Call Ku_AD(25) %></td>
</tr>
<!--【商家】页面-【产品列表】下方广告位-->
</table>
</div>
</td>
<td height="454" width="8"> </td>
<td height="454" width="232" valign="top">
<!--#include file="Ku_type/Index_login.asp"-->
<!--#include file="Ku_type/sj_gg.asp"-->
<img border="0" src="pkxx-img/ad001.JPG" width="232">
</td>
</tr>
</table>
</div>
<!--#include file="Ku_foot.asp"-->